SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMDOCU_PROV_I07]              
/*---------------------------------------------------------*/                  
/*---Empresa              : OFISIS S.A.                  --*/                  
/*---Cliente              : OFISIS S.A.                  --*/                  
/*---Sistema              : Tesoreria                    --*/                  
/*---M¸dulo               : Empresa                      --*/                  
/*---Programa             : Procedimiento para cargar    --*/                  
/*---                       detalle rendicion            --*/                        
/*---Script               : ttproc_i.sql                 --*/                  
/*---Nombre SP            : SP_TMDOCU_PROV_I07           --*/                  
/*---Desarrollado por     : Aldo Escobar / Alberto E.    --*/                  
/*---Fecha Creaci¸n       : 25/10/2011                   --*/                  
/*---Base Datos           : Microsoft Sql Server         --*/                  
/*---Versi¸n              : 9.0.4                        --*/                  
/*---Invoca a SP          :                              --*/                  
/*---------------------------------------------------------*/                  
/*---------------------------------------------------------*/                  
/*---Modificado 1 por     :                              --*/                  
/*---Fecha Modificaci¸n   :                              --*/                   
/*---Detalle Modificaci¸n :                              --*/                  
/*---------------------------------------------------------*/                  
/*---------------------------------------------------------*/                  
/*---Comentarios                                         --*/                  
/*---                                                    --*/                  
/*            
exec SP_TMDOCU_PROV_I07   '01', 'OFISIS','001','0150000003', '2011-10-19', 2.878, 'DOL','2010-08-31'            
*/            
/*---------------------------------------------------------*/                 
@ISCO_EMPR   TD_VC_002,                      
@ISCO_USUA_MODI  TD_VC_008_USUA ,               
@ISCO_UNID_CNTB  TD_VC_003,            
@ISNU_REND_GAST  TD_VC_010,            
@IDFE_REND_GAST  TD_DT_001,            
@ISCO_MONE_BANC  TD_VC_003,            
@IDFE_OPER    TD_DT_001            
             
As                
Declare                  
            
            
@CNNU_FILA    INTEGER ,             
@CSCO_PROV    TD_VC_020  ,              
@CSTI_DOCU    TD_VC_003  ,                
@CSNU_DOCU    TD_VC_020  ,                
@CSCO_MONE    TD_VC_003  ,                
@CDFE_EMIS    TD_DT_001  ,                
@CDFE_VENC    TD_DT_001  ,                 
@CNFA_CAMB    TD_NU_015_006 ,           
@CSST_PROV    TD_VC_003  ,                
@CSTI_OPER    TD_VC_003 ,                
@CSDE_OBSE    TD_VC_100  ,                 
@CNIM_AFEC    TD_NU_016_004  ,                
@CNIM_INAF    TD_NU_016_004  ,               
@CSCO_IMPU    TD_VC_020  ,               
@CNIM_IMPU    TD_NU_016_004  ,                
@CNIM_TOTA    TD_NU_016_004  ,               
@CSCO_CNTA    TD_VC_020  ,                
@CSTI_AUXI    TD_VC_001  ,                
@CSCO_AUXI    TD_VC_020  ,                
@CSCO_ORDE_SERV  TD_VC_020  ,                
@CSST_GRAV_NGRA TD_VC_001  ,               
@CSFE_PAGO  TD_DT_001,         
@CNFA_CAMB_REND   TD_NU_015_006,      
@CSST_SUJE_DETR   TD_VC_001,      
@CSCO_ACTI_DETR   TD_VC_003,      
@CNPO_DIST  TD_NU_009_004,        
            
                
@VSNU_SERI_EXIS     TD_VC_004  ,              
@VSTI_DOCU   TD_VC_001  ,              
@VSST_SERI   TD_VC_001  ,              
@VSNU_SERI_00  TD_VC_020  ,                
@VSNU_SERI_01  TD_VC_020  ,               
@VSNU_SERI_02  TD_VC_020  ,              
@VSCO_PROV   TD_VC_020  ,              
@VNNU_LONG   INTEGER   ,              
@VSCO_MONE   TD_VC_003  ,              
@VSFE_EMIS_DD  TD_VC_002  ,              
@VSFE_EMIS_MM  TD_VC_002  ,              
@VSFE_EMIS_AA  TD_VC_004  ,              
@VSTI_SITU_CXPA  TD_VC_001  ,              
@VSST_CIER_CNTB  TD_VC_001  ,              
@VSFE_VENC_DD  TD_VC_002  ,     
@VSFE_VENC_MM  TD_VC_002  ,              
@VSFE_VENC_AA  TD_VC_004  ,              
@VSFA_CAMB_EVAL  TD_VC_010,              
@VNFE_EMIS_AA   INTEGER,            
@VNFE_EMIS_MM INTEGER,            
@VSNO_CORT_PROV  TD_VC_050,            
@VSTI_OPRG_SIPR TD_VC_003,            
@VSCO_TIAU_PROV TD_VC_001,            
@VSCO_CNTA_EMPR  TD_VC_020,            
@VSST_AUXI_EMPR  TD_VC_001,            
@VSST_DOCU_CNTB  TD_VC_001,            
@VSST_MONE   TD_VC_001,             
@VSCO_MONE_CNTA  TD_VC_003,            
@VSST_ORDE_SERV  TD_VC_001,            
@VNNV_INFO_CNTA INTEGER,            
@VNPC_IMPT   INTEGER,            
@VNNU_CONT   INTEGER,             
@VNIM_CONV   NUMERIC(16,4),            
@CDFE_PAGO   DATETIME,             
@VSTI_AUXI_EMPR   TD_VC_003,            
@VSCO_AUXI_EMPR TD_VC_020,            
@VSCO_ORDE_SERV TD_VC_020,            
@VNNU_LONG_SERI  INTEGER,            
@VNNU_ERRO    INTEGER,            
@VSST_PROV_AUTO TD_VC_001,             
@VSCO_COND_CONT  TD_VC_001,            
@VSST_ASTO_RESU TD_VC_001,            
@VSCO_MONE_NACI TD_VC_003,            
@VSCO_MONE_EXTR TD_VC_003,            
@VNFA_CAMB_EXTR TD_NU_015_006,            
@VSTI_CAMB TD_VC_001,            
@VSTI_ORIG TD_VC_001,            
@VSST_AUXI_0008 TD_VC_001,            
@VSST_ACTU_PROV TD_VC_001,          
@VSST_ACTU_REND TD_VC_001,          
@VDFE_VENC_DIST TD_DT_001,          
@VSTI_DOCU_DIST TD_VC_001,          
@VSNU_DOCU_DIST TD_VC_020,      
@VNPO_DETR      TD_IN_001,      
@VSCO_TIOP_DETR  TD_VC_003        
--@VSST_DOCU_CNTB TD_VC_001          
               
               
Begin Tran SP_TMDOCU_PROV_I06                  
                  
          
            
SELECT @VNNU_CONT = ISNULL(MAX(NU_CORR_GAST),0)        
FROM TDREND_GAST          
where CO_EMPR = @ISCO_EMPR           
AND CO_UNID_CONC = @ISCO_UNID_CNTB          
AND NU_REND_GAST = @ISNU_REND_GAST          
AND FE_REND_GAST = @IDFE_REND_GAST      
      
Select  @VSST_PROV_AUTO = ST_PROV_AUTO, @VSCO_COND_CONT = CO_COND_CONT,             
   @VSCO_TIAU_PROV = CO_TIAU_PROV  , @VSTI_OPRG_SIPR =  TI_OPRG_SIPR,            
   @VSCO_MONE_NACI = CO_MONE_DEFA, @VSCO_MONE_EXTR = CO_MONE_EXTR,             
   @VSTI_CAMB = TI_CAMB, @VSTI_ORIG = TI_ORIG             
   From TMPARA_TESO                  
   Where CO_EMPR = @ISCO_EMPR         
        
        
            
 Declare CU_TMDOCU_PROV_I07 Cursor For                  
 SELECT NU_FILA,            
 CO_PROV ,  TI_DOCU , NU_DOCU ,  CO_MONE ,  FE_EMIS ,  FE_VENC ,              
 FA_CAMB ,  ST_PROV, TI_OPER ,  DE_OBSE,  IM_AFEC ,              
 IM_INAF ,  CO_IMPU ,   IM_IMPU,  IM_TOTA,  CO_CNTA,  TI_AUXI ,              
 CO_AUXI ,  CO_ORDE_SERV ,   ST_GRAV_NGRA, FE_PAGO, FA_CAMB_REND,      
@CSST_SUJE_DETR, @CSCO_ACTI_DETR                    
 FROM #TWDOCU_ERRO_03                   
                 
                 
 Open  CU_TMDOCU_PROV_I07                   
 Fetch CU_TMDOCU_PROV_I07                   
 Into             
 @CNNU_FILA ,  @CSCO_PROV  , @CSTI_DOCU  , @CSNU_DOCU  , @CSCO_MONE  , @CDFE_EMIS  , @CDFE_VENC  , @CNFA_CAMB  ,             
 @CSST_PROV  ,  @CSTI_OPER  , @CSDE_OBSE  , @CNIM_AFEC  , @CNIM_INAF  , @CSCO_IMPU  , @CNIM_IMPU  , @CNIM_TOTA  ,             
 @CSCO_CNTA  ,  @CSTI_AUXI  , @CSCO_AUXI  , @CSCO_ORDE_SERV, @CSST_GRAV_NGRA, @CDFE_PAGO, @CNFA_CAMB_REND,      
 @CSST_SUJE_DETR, @CSCO_ACTI_DETR            
             
 While (@@FETCH_STATUS = 0)                    
  Begin                    
   If (@@FETCH_STATUS < 0)                    
    Begin                    
     RAISERROR 20001 'FIN DE ARCHIVO'                    
  Close CU_TMDOCU_PROV_I07                    
  Deallocate CU_TMDOCU_PROV_I07                    
  Rollback tran                    
  Return                    
    End                    
              
   ----INICIALIZACIONES                  
   SELECT @VNNU_CONT = @VNNU_CONT + 1    
   ----VALIDACIONES------------            
            
   SELECT @VNPC_IMPT = PC_IMPT            
   FROM TTIMPT             
   WHERE CO_IMPT = @CSCO_IMPU            
            
   ----------------            
   SELECT @VSNO_CORT_PROV = NO_CORT_PROV              
   FROM TMPROV            
   WHERE CO_EMPR = @ISCO_EMPR            
   AND  CO_PROV = @CSCO_PROV        
   -----------------------------------            
            
   Select  @VSST_AUXI_0008 = ST_AUXI_0008                  
   From TTTIPO_OPER                  
   Where  CO_EMPR = @ISCO_EMPR                  
   And CO_TIPO_OPER =  @CSST_PROV              
             
   IF EXISTS (SELECT * FROM TDREND_GAST            
   WHERE CO_EMPR = @ISCO_EMPR         
   AND NU_REND_GAST = @ISNU_REND_GAST        
   AND FE_REND_GAST = @IDFE_REND_GAST           
   AND TI_ENTI = @VSCO_TIAU_PROV          
   AND CO_ENTI = @CSCO_PROV            
   AND CO_TIPO_DOCU = @CSTI_DOCU            
   AND NU_DOCU_PROV = @CSNU_DOCU)            
    SELECT @VSST_ACTU_REND = 'S'            
   ELSE            
    SELECT @VSST_ACTU_REND = 'N'               
             
   IF EXISTS (SELECT * FROM TMDOCU_PROV            
   WHERE CO_EMPR = @ISCO_EMPR            
   AND CO_PROV = @CSCO_PROV            
   AND CO_TIPO_DOCU = @CSTI_DOCU            
   AND NU_DOCU_PROV = @CSNU_DOCU)            
    SELECT @VSST_ACTU_PROV = 'S'            
   ELSE            
    SELECT @VSST_ACTU_PROV = 'N'            
            
          
           
 ----------FACTOR DE CAMBIO             
  SELECT @VNIM_CONV = Round(dbo.FN_TCFACT_CAMB_Q02(  @CSCO_MONE, @ISCO_MONE_BANC,            
  @IDFE_OPER, @CNIM_TOTA, @VSTI_CAMB, @VSTI_ORIG, 'S', @VSCO_MONE_NACI, @VSCO_MONE_EXTR, @CNFA_CAMB), 2)            
-----              
                   
 -- SELECT * FROM TDREND_GAST            
  IF @VSST_ACTU_REND = 'N'          
   Insert Into  TDREND_GAST(CO_EMPR, NU_REND_GAST, FE_REND_GAST, NU_CORR_GAST,                  
   CO_UNID_CONC, TI_ENTI, CO_ENTI, DE_ENTI, CO_TIPO_DOCU, NU_DOCU_PROV, FA_CAMB_DOCU,           
   CO_MONE, CO_TIOP_PROV, IM_BRUT_AFEC, IM_BRUT_INAF, CO_IMP1, PC_IMP1, IM_IMP1,                   
   CO_IMP2, PC_IMP2, IM_IMP2, CO_IMP3, PC_IMP3, IM_IMP3,IM_DOCU,FE_DOCU, IM_CONV,           
   CO_TIPO_OPER, CO_CNTA_EMPR, DE_OBSE,  ST_GRAV_NGRA,TI_AUXI_EMPR, CO_CENT_COST,           
   CO_ORDE_SERV, NU_IMPO,FA_CAMB_REND,CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI,              
   FE_PAGO)                  
   Values  (@ISCO_EMPR,@ISNU_REND_GAST, @IDFE_REND_GAST, @VNNU_CONT,                   
   @ISCO_UNID_CNTB,@VSCO_TIAU_PROV, @CSCO_PROV, @VSNO_CORT_PROV ,            
             
 @CSTI_DOCU,                  
 @CSNU_DOCU,             
 @CNFA_CAMB , @CSCO_MONE, @CSTI_OPER,                  
 @CNIM_AFEC , @CNIM_INAF,             
 @CSCO_IMPU, @VNPC_IMPT, @CNIM_IMPU,            
 NULL, NULL, NULL, NULL, NULL, NULL,             
 @CNIM_TOTA,                   
 @CDFE_EMIS, @VNIM_CONV, @CSST_PROV,            
 @CSCO_CNTA, @CSDE_OBSE ,@CSST_GRAV_NGRA,                   
 @CSTI_AUXI, @CSCO_AUXI, @CSCO_ORDE_SERV,             
             
 NULL, @CNFA_CAMB_REND,            
             
 @ISCO_USUA_MODI, GETDATE(),@ISCO_USUA_MODI, GETDATE(),              
 @CDFE_PAGO)                 
            
            
if @VSST_AUXI_0008 = 'S' AND @VSST_PROV_AUTO = 'S'        
 BEGIN            
 IF @VSST_ACTU_PROV = 'N' And @VSST_PROV_AUTO = 'S'                   
 BEGIN            
  Select @VSST_ASTO_RESU = ST_ASTO_RESU                  
   From TMOPRC_RESU T1, TTTIPO_OPER T2, TDTIPO_OPER T3                  
   Where T1.CO_EMPR = @ISCO_EMPR                  
   And T2.CO_TIPO_OPER = @CSTI_OPER                  
   And T1.CO_EMPR = T2.CO_EMPR                  
   And T2.CO_EMPR = T3.CO_EMPR                  
   And T2.CO_TIPO_OPER = T3.CO_TIPO_OPER                  
   And T1.CO_OPRC_CNTB = T3.CO_OPRC_CNTB              
               
   If @CSCO_MONE != @VSCO_MONE_NACI And @CSCO_MONE != @VSCO_MONE_EXTR                  
    Select @VNFA_CAMB_EXTR = (SELECT OFITESO.dbo.FN_TCFACT_CAMB_Q02(@CSCO_MONE, @VSCO_MONE_EXTR,                  
    @CDFE_EMIS, 1, @VSTI_CAMB, @VSTI_ORIG, 'S', @VSCO_MONE_NACI, @VSCO_MONE_EXTR, @CNFA_CAMB))                  
   Else                   
    Select @VNFA_CAMB_EXTR = 1.00             
            
   Exec SP_TMDOCU_PROV_I02 @ISCO_EMPR, @ISCO_USUA_MODI, @CSCO_PROV, @CSTI_DOCU, @CSNU_DOCU,                  
   @CSCO_MONE, @CSTI_OPER, @VSCO_COND_CONT, @CDFE_EMIS, @ISCO_UNID_CNTB,                   
   @CDFE_EMIS, @CNFA_CAMB, @CNIM_AFEC, @CNIM_INAF, 0, 0, 0,                  
   'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N',                   
   0, 0, 0, 0, @CSCO_IMPU, @VNPC_IMPT, @CNIM_IMPU, NULL, 0,                  
   0, NULL, 0, 0, 0, 0, 0, 0, 0,                   
   @CNIM_TOTA, @CNIM_TOTA, NULL, NULL, NULL, @CSDE_OBSE, @ISNU_REND_GAST, @CDFE_EMIS,               
   'PAG', @CDFE_VENC, NULL, NULL, 'N', NULL, @IDFE_REND_GAST, @VSST_ASTO_RESU, NULL, @VNFA_CAMB_EXTR, @CDFE_EMIS,                  
   'N', Null, Null, Null, Null,@CSST_GRAV_NGRA             
             
          
   IF (@@ERROR != 0)                
   Begin                 
    RAISERROR 20001 'ERROR DE INSERCION'              
    RollBack Tran SP_TDREND_GAST_I01                
    RETURN                
   End              
         
   IF @CSST_SUJE_DETR = 'S'         
    BEGIN        
     SELECT @VNPO_DETR = PO_DETR        
     From   TTACTI_DETR        
     Where  CO_ACTI_DETR = @CSCO_ACTI_DETR         
             
     Select @VSCO_TIOP_DETR = CO_TIOP_DETR        
     From TMPARA_TESO          
     Where CO_EMPR = @ISCO_EMPR        
    END        
   ELSE        
    BEGIN        
     SELECT @VNPO_DETR = 0        
     SELECT @CSCO_ACTI_DETR = NULL        
     SELECT @VSCO_TIOP_DETR = NULL        
    END        
          
     UPDATE TMDOCU_PROV      
        SET    ST_SUJE_DETR = @CSST_SUJE_DETR,      
               CO_ACTI_DETR = @CSCO_ACTI_DETR,      
               PO_DETR      = @VNPO_DETR      
        WHERE CO_EMPR = @ISCO_EMPR      
        AND CO_PROV = @CSCO_PROV      
        AND CO_TIPO_DOCU = @CSTI_DOCU      
        AND NU_DOCU_PROV = @CSNU_DOCU      
              
     IF (@@ERROR != 0)                
   Begin                 
    RAISERROR 20001 'ERROR DE INSERCION'                
    RollBack Tran SP_TDREND_GAST_I01                
    RETURN                
   End        
        
            
             
   END         
           
   If @VSST_ACTU_PROV = 'S' And @VSST_PROV_AUTO = 'S'              
    Begin              
     Update  TMDOCU_PROV              
     Set  NU_REND_GAST = @ISNU_REND_GAST,              
     IM_PAGA = @CNIM_TOTA,              
     CO_ESTA_DOCU = 'PAG',            
     CO_USUA_MODI = @ISCO_USUA_MODI,            
     FE_USUA_MODI = GETDATE()              
     Where  CO_EMPR = @ISCO_EMPR              
     And CO_PROV = @CSCO_PROV              
     And CO_TIPO_DOCU = @CSTI_DOCU              
     And NU_DOCU_PROV = @CSNU_DOCU              
               
     IF (@@ERROR != 0)              
      Begin               
       RAISERROR 20001 'ERROR DE INSERCION'              
       RollBack Tran SP_TDREND_GAST_I01              
       RETURN              
      End         
                
    End         
               
 End                   
         
  If @VSST_AUXI_0008 = 'S' and @VSST_ACTU_PROV = 'S' And @VSST_PROV_AUTO = 'N'              
 Begin              
  Update  TMDOCU_PROV              
  Set  NU_REND_GAST = @ISNU_REND_GAST,              
  CO_ESTA_DOCU = 'PAG',            
  IM_PAGA = @CNIM_TOTA,            
  CO_USUA_MODI = @ISCO_USUA_MODI,            
  FE_USUA_MODI = GETDATE()              
  Where  CO_EMPR = @ISCO_EMPR              
  And CO_PROV = @CSCO_PROV              
  And CO_TIPO_DOCU = @CSTI_DOCU              
  And NU_DOCU_PROV = @CSNU_DOCU              
              
  IF (@@ERROR != 0)              
  Begin               
   RAISERROR 20001 'ERROR DE INSERCION'              
   RollBack Tran SP_TDREND_GAST_I01              
   RETURN              
  End              
 End              
                  
---------TDREND_GAST---------------------            
           
 -----------------------------------------------------------------------------            
  -----------------------------------------------------------------------------            
            
            
              
   If @@error <> 0                    
         Begin                    
     Close CU_TMDOCU_PROV_I07                    
     Deallocate CU_TMDOCU_PROV_I07                    
               rollback tran                    
         return                    
            End                    
              
            
Fetch  CU_TMDOCU_PROV_I07                   
Into             
@CNNU_FILA ,  @CSCO_PROV  , @CSTI_DOCU  , @CSNU_DOCU  , @CSCO_MONE  , @CDFE_EMIS  , @CDFE_VENC  , @CNFA_CAMB  ,             
@CSST_PROV  ,  @CSTI_OPER  , @CSDE_OBSE  , @CNIM_AFEC  , @CNIM_INAF  , @CSCO_IMPU  , @CNIM_IMPU  , @CNIM_TOTA  ,             
@CSCO_CNTA  ,  @CSTI_AUXI  , @CSCO_AUXI  , @CSCO_ORDE_SERV,@CSST_GRAV_NGRA,  @CDFE_PAGO   , @CNFA_CAMB_REND,      
@CSST_SUJE_DETR, @CSCO_ACTI_DETR            
               
              
End              
              
Close CU_TMDOCU_PROV_I07                  
Deallocate CU_TMDOCU_PROV_I07               
      
SELECT @VNNU_CONT = 0      
      
DECLARE  CU_TMDOCU_PROV_I07_1 CURSOR FOR      
SELECT           
CO_PROV ,  TI_DOCU , NU_DOCU , IM_AFEC ,                          
IM_INAF ,  CO_CNTA,  TI_AUXI ,                          
CO_AUXI ,  CO_ORDE_SERV, PO_DIST                     
FROM #TWDOCU_ERRO_03        
      
Open  CU_TMDOCU_PROV_I07_1;      
Fetch CU_TMDOCU_PROV_I07_1                               
Into        
@CSCO_PROV  , @CSTI_DOCU  , @CSNU_DOCU  , @CNIM_AFEC  , @CNIM_INAF  ,                            
 @CSCO_CNTA ,  @CSTI_AUXI  , @CSCO_AUXI  , @CSCO_ORDE_SERV, @CNPO_DIST       
      
While (@@FETCH_STATUS = 0)                    
  Begin                    
   If (@@FETCH_STATUS < 0)                    
    Begin                    
     RAISERROR 20001 'FIN DE ARCHIVO'                    
  Close CU_TMDOCU_PROV_I07_1                    
  Deallocate CU_TMDOCU_PROV_I07_1      
  Rollback tran                    
  Return                    
    End         
        
    SELECT @VNNU_CONT = @VNNU_CONT + 1      
          
    Select @VSST_DOCU_CNTB = ST_DOCU_CNTB      
    From    TMPLAN_EMPR         
    Where   CO_EMPR = @ISCO_EMPR        
    And     NU_ANNO = '9999'        
    And     CO_CNTA_EMPR = @CSCO_CNTA      
         
    IF @VSST_DOCU_CNTB = 'S'            
    BEGIN            
     SELECT @VSTI_DOCU_DIST = @CSTI_DOCU,             
     @VSNU_DOCU_DIST = @CSNU_DOCU,             
     @VDFE_VENC_DIST = GETDATE()             
    END             
   ELSE            
    BEGIN            
     SELECT @VSTI_DOCU_DIST = NULL,             
     @VSNU_DOCU_DIST = NULL,             
     @VDFE_VENC_DIST = NULL             
    END        
              
   Insert Into TDDISP_CCOS (CO_EMPR , CO_PROV, CO_TIPO_DOCU, NU_DOCU_PROV,                              
 NU_CORR, CO_CENT_COST, CO_CNTA_EMPR, CO_ORDE_SERV, ST_DIST,                              
 PO_DIST, IM_DIST, TI_AUXI_EMPR, DE_OBSE, TI_DOCU, NU_DOCU, FE_VENC,                        
 CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)                              
 Values  (@ISCO_EMPR, @CSCO_PROV, @CSTI_DOCU, @CSNU_DOCU,                              
 @VNNU_CONT, @CSCO_AUXI, @CSCO_CNTA, @CSCO_ORDE_SERV, 'P',                              
 100, (@CNIM_AFEC + @CNIM_INAF)*(CONVERT(DECIMAL,@CNPO_DIST)/CONVERT(DECIMAL,100)) , @CSTI_AUXI, @CSDE_OBSE,       
 @VSTI_DOCU_DIST, @VSNU_DOCU_DIST, @VDFE_VENC_DIST,                          
 @ISCO_USUA_MODI, GETDATE(),@ISCO_USUA_MODI, GETDATE())                              
            
    If @@error <> 0                                  
  Begin               
   RAISERROR 20001 'ERROR DE INSERCION'                               
   Close CU_TMDOCU_PROV_I07_1                                  
   Deallocate CU_TMDOCU_PROV_I07_1            
return                                  
  End            
                       
 Fetch  CU_TMDOCU_PROV_I07_1            
 Into                           
 @CSCO_PROV  , @CSTI_DOCU  , @CSNU_DOCU  , @CNIM_AFEC  , @CNIM_INAF  ,                            
 @CSCO_CNTA ,  @CSTI_AUXI  , @CSCO_AUXI  , @CSCO_ORDE_SERV, @CNPO_DIST       
        
 END       
       
 Close CU_TMDOCU_PROV_I07_1            
 Deallocate CU_TMDOCU_PROV_I07_1           
       
Commit Tran SP_TMDOCU_PROV_I07   
  
  
GO
